home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Win '95 Giga Pack
/
Win95 Giga Pack (Maple Media) (1997).iso
/
AUDIO
/
MYMUSIC1
/
DRIVERS.EXE
/
HPLAS2I.PRG
< prev
next >
Wrap
Text File
|
1994-08-13
|
7KB
|
128 lines
FUNCTION hplas2i
PARAMETERS pc_todo,px_param1,px_param2,px_param3,px_param4,px_param5,px_param6,px_param7
PRIVATE lc_params,lc_str,ll_query,ll_toprint
lc_params = "pc_todo,px_param1,px_param2,px_param3,px_param4,px_param5,px_param6,px_param7"
lc_str = ""
ll_query = .F.
ll_toprint = .T.
pc_todo = UPPER(pc_todo)
IF pc_todo="QUERY"
ll_query = .T.
ll_toprint = .F.
IF PCOUNT()=1
RETURN .T.
ENDIF
pc_todo = UPPER(px_param1)
px_param1 = px_param2
px_param2 = px_param3
px_param3 = px_param4
px_param4 = px_param5
px_param5 = px_param6
px_param6 = px_param7
ENDIF
DO CASE
CASE pc_todo = "VMI"
lc_str = CHR(27)+"&l"+;
LTRIM(STR(px_param1/30,5,2))+"C"
CASE pc_todo = "ORIENTATION"
PRIVATE la_orients,ln_x
DECLARE la_orients[5,2]
la_orients[1,1] = "PORTRAIT"
la_orients[1,2] = "0"
la_orients[2,1] = "LANDSCAPE"
la_orients[2,2] = "1"
la_orients[3,1] = "REVERSE PORTRAIT"
la_orients[3,2] = "2"
la_orients[4,1] = "REVERSE LANDSCAPE"
la_orients[4,2] = "3"
ln_x = 1
px_param1 = UPPER(px_param1)
DO WHILE TYPE("la_orients[ln_x,1]")='C'
IF la_orients[ln_x,1] = px_param1
EXIT
ENDIF
ln_x = ln_x + 1
ENDDO
IF TYPE("la_orients[ln_x,1]") = 'C'
lc_str = CHR(27)+"&l"+la_orients[ln_x,2]+"O"
ENDIF
CASE pc_todo = "PFEED"
lc_str = CHR(27)+"&l"+;
IIF(UPPER(px_param1)="MANUAL","2","1")+"H"
CASE pc_todo = "PSIZE"
PRIVATE la_psizes,ln_x
DECLARE la_psizes[5,3]
la_psizes[1,1] = "EXECUTIVE"
la_psizes[1,2] = "1"
la_psizes[1,3] = 217
la_psizes[2,1] = "LETTER"
la_psizes[2,2] = "2"
la_psizes[2,3] = 218
la_psizes[3,1] = "LEGAL"
la_psizes[3,2] = "3"
la_psizes[3,3] = 223
la_psizes[4,1] = "A4"
la_psizes[4,2] = "26"
la_psizes[4,3] = 219
ln_x = 1
px_param1 = UPPER(px_param1)
DO WHILE TYPE("la_psizes[ln_x,1]")='C'
IF la_psizes[ln_x,1] = px_param1
EXIT
ENDIF
ln_x = ln_x + 1
ENDDO
IF TYPE("la_psizes[ln_x,1]") = 'C'
lc_str = CHR(27)+"&l"+la_psizes[ln_x,2]+"A"
IF .NOT. ll_query
??? lc_str
ll_toprint = .F.
ll_x = ESCAPE("VMI",la_psizes[ln_x,3])
ENDIF
ENDIF
CASE pc_todo = "TMARGIN"
PRIVATE ll_x
* lc_str = CHR(27)+"&l"+;
* LTRIM(STR(px_param1/2,10,2))+"z0E"
lc_str = CHR(27)+"&l1E"
IF .NOT. ll_query
ll_x = ESCAPE("VMI",px_param1)
??? lc_str
ll_toprint = .F.
ll_x = ESCAPE("VMI",240)
ENDIF
ENDCASE
IF ll_toprint
??? lc_str
ELSE
IF ll_query
px_param7 = px_param6
px_param6 = px_param5
px_param5 = px_param4
px_param4 = px_param3
px_param3 = px_param2
px_param2 = px_param1
ENDIF
ENDIF
RETURN .NOT. ISBLANK(lc_str)